home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / fg / fgl402e / expas.arj / TEMP / 14-10.PAS < prev    next >
Pascal/Delphi Source File  |  1995-01-20  |  1KB  |  56 lines
  1. program main;
  2. uses fgmain, fgbitmap, fgmisc;
  3.  
  4. const
  5.   solid  : array [1..32] of word = (
  6.             $E03F,$E03F,$E03F,$0007,$0007,$0007,$0007,$0007,
  7.             $0007,$0007,$E03F,$E03F,$E03F,$FFFF,$FFFF,$FFFF,
  8.             $0000,$0F80,$0F80,$0F80,$7FF0,$7FF0,$7FF0,$7FF0,
  9.             $7FF0,$0F80,$0F80,$0F80,$0000,$0000,$0000,$0000);
  10.  
  11.   hollow : array [1..32] of word = (
  12.             $E03F,$EFBF,$EFBF,$0F87,$7FF7,$7FF7,$7FF7,$7FF7,
  13.             $7FF7,$0F87,$EFBF,$EFBF,$E03F,$FFFF,$FFFF,$FFFF,
  14.             $0000,$0000,$0000,$0000,$0000,$0000,$0200,$0000,
  15.             $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000);
  16.  
  17. var
  18.   old_mode : integer;
  19.   column, row, last_row : integer;
  20.  
  21. begin
  22.   fg_initpm;
  23.   old_mode := fg_getmode;
  24.   fg_setmode(fg_automode);
  25.  
  26.   if (fg_mouseini < 0) then
  27.   begin
  28.     fg_setmode(old_mode);
  29.     fg_reset;
  30.     exit;
  31.   end;
  32.  
  33.   fg_setcolor(15);
  34.   fg_rect(0,fg_getmaxx,0,fg_getmaxy);
  35.  
  36.   fg_setcolor(12);
  37.   column := fg_xalpha(fg_getmaxx div 2) - 6;
  38.   last_row := fg_yalpha(fg_getmaxy) + 1;
  39.  
  40.   for row := 0 to last_row-1 do
  41.   begin
  42.     fg_locate(row,column);
  43.     fg_text('example 14-10',13);
  44.   end;
  45.  
  46.   fg_mousevis(1);
  47.   fg_waitkey;
  48.   fg_mouseptr(solid,6,6);
  49.   fg_waitkey;
  50.   fg_mouseptr(hollow,6,6);
  51.   fg_waitkey;
  52.  
  53.   fg_setmode(old_mode);
  54.   fg_reset;
  55. end.
  56.